#!/usr/bin/perl
use strict;

open(ANTI,"<SeqAnti.TXT");
open(SEN,"<SeqSen.TXT");
open(OUT,">termResult.txt");

my $antiLine;
my $senLine;
my $anti1;
my $sen1;

while($antiLine=<ANTI>){
       $senLine=<SEN>;
       if ($antiLine=~/^(\S).*/){$anti1=$1;}
       if ($senLine=~/^(\S).*/){$sen1=$1;}
       print OUT $anti1,$sen1," ";
       if (($anti1 eq 'U')&&($sen1 eq 'G')) {print OUT 1;};
       if (($anti1 eq 'A')&&($sen1 eq 'G')) {print OUT 2;};
       if (($anti1 eq 'U')&&($sen1 eq 'C')) {print OUT 3;};
       if (($anti1 eq 'U')&&($sen1 eq 'A')) {print OUT 4;};
       if (($anti1 eq 'A')&&($sen1 eq 'C')) {print OUT 5;};
       if (($anti1 eq 'U')&&($sen1 eq 'U')) {print OUT 6;};
       if (($anti1 eq 'C')&&($sen1 eq 'G')) {print OUT 7;};
       if (($anti1 eq 'G')&&($sen1 eq 'C')) {print OUT 8;};
       if (($anti1 eq 'A')&&($sen1 eq 'A')) {print OUT 9;};
       if (($anti1 eq 'G')&&($sen1 eq 'G')) {print OUT 10;};
       if (($anti1 eq 'A')&&($sen1 eq 'U')) {print OUT 11;};
       if (($anti1 eq 'C')&&($sen1 eq 'C')) {print OUT 12;};
       if (($anti1 eq 'G')&&($sen1 eq 'A')) {print OUT 13;};
       if (($anti1 eq 'G')&&($sen1 eq 'U')) {print OUT 14;};
       if (($anti1 eq 'C')&&($sen1 eq 'A')) {print OUT 15;};
       if (($anti1 eq 'C')&&($sen1 eq 'U')) {print OUT 16;};
       print OUT "\n";
}


close(ANTI);
close(SEN);
close(OUT);